
# Some macros to make drawing easier for our images
drawSmall <- function(vect) {drawVect(rev(vect),32,30)}
drawMed <- function(vect) {drawVect(rev(vect),64,60)}
drawLarge <- function(vect) {drawVect(rev(vect),128,120)}

# Draws a vector as a grayscale image (given it is formatted like we wish) given it's dimensions
drawVect <- function(vect,x,y) {
  image(matrix(vect,x,y),col = grey((1:256)/256),axes=FALSE)
}
